cobb_douglas <- function(x, y, A, alpha) { A * x ^ alpha * y ^ (1 - alpha) } # 予算制約線 bud_con <- function(x, p_x, p_y, I) { (I - p_x * x) / p_y } # 無差別曲線 indiff_crv <- function(x, U, A, alpha) { (U / A * x ^ (-alpha)) ^ (1 / (1 - alpha)) }